#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use XML::Simple;

my $status = shift;
my $ua = LWP::UserAgent->new();
my $req = POST 'http://aap_ugr:ugr_aap@twitter.com/statuses/update.xml', 
  [ status => $status ];
my $res = $ua->request($req);
if ($res->is_success) {
  my $respuesta=XMLin($res->content);
  print "El mensaje ", $respuesta->{'text'}, " ha recibido el ID ", $respuesta->{'id'}, "\n";
} else {
  die $res->status_line;
}
